/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Prog / M / MPWGCC (Sources).cpt / Sources / output.h

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 6f 75 74 70 75 74 | 2e 68 00 00 00 00 00 00 |..output|.h......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0c 8e 00 | 00 01 7e a2 25 84 f7 a2 |........|..~.%...|
|00000060| 25 84 f7 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |%.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 cd 2e 00 00 |........|........|
|00000080| 2f 2a 20 44 65 63 6c 61 | 72 61 74 69 6f 6e 73 20 |/* Decla|rations |
|00000090| 66 6f 72 20 69 6e 73 6e | 2d 6f 75 74 70 75 74 2e |for insn|-output.|
|000000a0| 63 2e 20 20 54 68 65 73 | 65 20 66 75 6e 63 74 69 |c.  Thes|e functi|
|000000b0| 6f 6e 73 20 61 72 65 20 | 64 65 66 69 6e 65 64 20 |ons are |defined |
|000000c0| 69 6e 20 72 65 63 6f 67 | 2e 63 2e 0d 20 20 20 43 |in recog|.c..   C|
|000000d0| 6f 70 79 72 69 67 68 74 | 20 28 43 29 20 31 39 38 |opyright| (C) 198|
|000000e0| 37 20 46 72 65 65 20 53 | 6f 66 74 77 61 72 65 20 |7 Free S|oftware |
|000000f0| 46 6f 75 6e 64 61 74 69 | 6f 6e 2c 20 49 6e 63 2e |Foundati|on, Inc.|
|00000100| 0d 20 20 20 43 6f 70 79 | 72 69 67 68 74 20 28 43 |.   Copy|right (C|
|00000110| 29 20 31 39 38 39 2c 20 | 31 39 39 30 20 41 70 70 |) 1989, |1990 App|
|00000120| 6c 65 20 43 6f 6d 70 75 | 74 65 72 2c 20 49 6e 63 |le Compu|ter, Inc|
|00000130| 2e 0d 0d 54 68 69 73 20 | 66 69 6c 65 20 69 73 20 |...This |file is |
|00000140| 70 61 72 74 20 6f 66 20 | 47 4e 55 20 43 43 2e 0d |part of |GNU CC..|
|00000150| 0d 47 4e 55 20 43 43 20 | 69 73 20 66 72 65 65 20 |.GNU CC |is free |
|00000160| 73 6f 66 74 77 61 72 65 | 3b 20 79 6f 75 20 63 61 |software|; you ca|
|00000170| 6e 20 72 65 64 69 73 74 | 72 69 62 75 74 65 20 69 |n redist|ribute i|
|00000180| 74 20 61 6e 64 2f 6f 72 | 20 6d 6f 64 69 66 79 0d |t and/or| modify.|
|00000190| 69 74 20 75 6e 64 65 72 | 20 74 68 65 20 74 65 72 |it under| the ter|
|000001a0| 6d 73 20 6f 66 20 74 68 | 65 20 47 4e 55 20 47 65 |ms of th|e GNU Ge|
|000001b0| 6e 65 72 61 6c 20 50 75 | 62 6c 69 63 20 4c 69 63 |neral Pu|blic Lic|
|000001c0| 65 6e 73 65 20 61 73 20 | 70 75 62 6c 69 73 68 65 |ense as |publishe|
|000001d0| 64 20 62 79 0d 74 68 65 | 20 46 72 65 65 20 53 6f |d by.the| Free So|
|000001e0| 66 74 77 61 72 65 20 46 | 6f 75 6e 64 61 74 69 6f |ftware F|oundatio|
|000001f0| 6e 3b 20 65 69 74 68 65 | 72 20 76 65 72 73 69 6f |n; eithe|r versio|
|00000200| 6e 20 31 2c 20 6f 72 20 | 28 61 74 20 79 6f 75 72 |n 1, or |(at your|
|00000210| 20 6f 70 74 69 6f 6e 29 | 0d 61 6e 79 20 6c 61 74 | option)|.any lat|
|00000220| 65 72 20 76 65 72 73 69 | 6f 6e 2e 0d 0d 47 4e 55 |er versi|on...GNU|
|00000230| 20 43 43 20 69 73 20 64 | 69 73 74 72 69 62 75 74 | CC is d|istribut|
|00000240| 65 64 20 69 6e 20 74 68 | 65 20 68 6f 70 65 20 74 |ed in th|e hope t|
|00000250| 68 61 74 20 69 74 20 77 | 69 6c 6c 20 62 65 20 75 |hat it w|ill be u|
|00000260| 73 65 66 75 6c 2c 0d 62 | 75 74 20 57 49 54 48 4f |seful,.b|ut WITHO|
|00000270| 55 54 20 41 4e 59 20 57 | 41 52 52 41 4e 54 59 3b |UT ANY W|ARRANTY;|
|00000280| 20 77 69 74 68 6f 75 74 | 20 65 76 65 6e 20 74 68 | without| even th|
|00000290| 65 20 69 6d 70 6c 69 65 | 64 20 77 61 72 72 61 6e |e implie|d warran|
|000002a0| 74 79 20 6f 66 0d 4d 45 | 52 43 48 41 4e 54 41 42 |ty of.ME|RCHANTAB|
|000002b0| 49 4c 49 54 59 20 6f 72 | 20 46 49 54 4e 45 53 53 |ILITY or| FITNESS|
|000002c0| 20 46 4f 52 20 41 20 50 | 41 52 54 49 43 55 4c 41 | FOR A P|ARTICULA|
|000002d0| 52 20 50 55 52 50 4f 53 | 45 2e 20 20 53 65 65 20 |R PURPOS|E.  See |
|000002e0| 74 68 65 0d 47 4e 55 20 | 47 65 6e 65 72 61 6c 20 |the.GNU |General |
|000002f0| 50 75 62 6c 69 63 20 4c | 69 63 65 6e 73 65 20 66 |Public L|icense f|
|00000300| 6f 72 20 6d 6f 72 65 20 | 64 65 74 61 69 6c 73 2e |or more |details.|
|00000310| 0d 0d 59 6f 75 20 73 68 | 6f 75 6c 64 20 68 61 76 |..You sh|ould hav|
|00000320| 65 20 72 65 63 65 69 76 | 65 64 20 61 20 63 6f 70 |e receiv|ed a cop|
|00000330| 79 20 6f 66 20 74 68 65 | 20 47 4e 55 20 47 65 6e |y of the| GNU Gen|
|00000340| 65 72 61 6c 20 50 75 62 | 6c 69 63 20 4c 69 63 65 |eral Pub|lic Lice|
|00000350| 6e 73 65 0d 61 6c 6f 6e | 67 20 77 69 74 68 20 47 |nse.alon|g with G|
|00000360| 4e 55 20 43 43 3b 20 73 | 65 65 20 74 68 65 20 66 |NU CC; s|ee the f|
|00000370| 69 6c 65 20 43 4f 50 59 | 49 4e 47 2e 20 20 49 66 |ile COPY|ING.  If|
|00000380| 20 6e 6f 74 2c 20 77 72 | 69 74 65 20 74 6f 0d 74 | not, wr|ite to.t|
|00000390| 68 65 20 46 72 65 65 20 | 53 6f 66 74 77 61 72 65 |he Free |Software|
|000003a0| 20 46 6f 75 6e 64 61 74 | 69 6f 6e 2c 20 36 37 35 | Foundat|ion, 675|
|000003b0| 20 4d 61 73 73 20 41 76 | 65 2c 20 43 61 6d 62 72 | Mass Av|e, Cambr|
|000003c0| 69 64 67 65 2c 20 4d 41 | 20 30 32 31 33 39 2c 20 |idge, MA| 02139, |
|000003d0| 55 53 41 2e 20 20 2a 2f | 0d 0d 2f 2a 20 4f 70 65 |USA.  */|../* Ope|
|000003e0| 72 61 6e 64 2d 70 72 65 | 64 69 63 61 74 65 20 66 |rand-pre|dicate f|
|000003f0| 75 6e 63 74 69 6f 6e 73 | 2e 20 20 2a 2f 0d 69 6e |unctions|.  */.in|
|00000400| 74 20 67 65 6e 65 72 61 | 6c 5f 6f 70 65 72 61 6e |t genera|l_operan|
|00000410| 64 20 28 29 3b 0d 69 6e | 74 20 70 75 73 68 5f 6f |d ();.in|t push_o|
|00000420| 70 65 72 61 6e 64 20 28 | 29 3b 0d 69 6e 74 20 6d |perand (|);.int m|
|00000430| 65 6d 6f 72 79 5f 6f 70 | 65 72 61 6e 64 20 28 29 |emory_op|erand ()|
|00000440| 3b 0d 69 6e 74 20 69 6e | 64 69 72 65 63 74 5f 6f |;.int in|direct_o|
|00000450| 70 65 72 61 6e 64 20 28 | 29 3b 0d 69 6e 74 20 69 |perand (|);.int i|
|00000460| 6d 6d 65 64 69 61 74 65 | 5f 6f 70 65 72 61 6e 64 |mmediate|_operand|
|00000470| 20 28 29 3b 0d 69 6e 74 | 20 72 65 67 69 73 74 65 | ();.int| registe|
|00000480| 72 5f 6f 70 65 72 61 6e | 64 20 28 29 3b 0d 69 6e |r_operan|d ();.in|
|00000490| 74 20 61 64 64 72 65 73 | 73 5f 6f 70 65 72 61 6e |t addres|s_operan|
|000004a0| 64 20 28 29 3b 0d 69 6e | 74 20 6e 6f 6e 6d 65 6d |d ();.in|t nonmem|
|000004b0| 6f 72 79 5f 6f 70 65 72 | 61 6e 64 20 28 29 3b 0d |ory_oper|and ();.|
|000004c0| 69 6e 74 20 6e 6f 6e 69 | 6d 6d 65 64 69 61 74 65 |int noni|mmediate|
|000004d0| 5f 6f 70 65 72 61 6e 64 | 20 28 29 3b 0d 0d 69 6e |_operand| ();..in|
|000004e0| 74 20 6f 66 66 73 65 74 | 74 61 62 6c 65 5f 61 64 |t offset|table_ad|
|000004f0| 64 72 65 73 73 5f 70 20 | 28 29 3b 0d 72 74 78 20 |dress_p |();.rtx |
|00000500| 61 64 6a 5f 6f 66 66 73 | 65 74 74 61 62 6c 65 5f |adj_offs|ettable_|
|00000510| 6f 70 65 72 61 6e 64 20 | 28 29 3b 0d 0d 2f 2a 20 |operand |();../* |
|00000520| 4f 75 74 70 75 74 20 61 | 20 73 74 72 69 6e 67 20 |Output a| string |
|00000530| 6f 66 20 61 73 73 65 6d | 62 6c 65 72 20 63 6f 64 |of assem|bler cod|
|00000540| 65 2e 0d 20 20 20 44 65 | 66 69 6e 65 64 20 69 6e |e..   De|fined in|
|00000550| 20 66 69 6e 61 6c 2e 63 | 2e 20 20 2a 2f 0d 76 6f | final.c|.  */.vo|
|00000560| 69 64 20 6f 75 74 70 75 | 74 5f 61 73 6d 5f 69 6e |id outpu|t_asm_in|
|00000570| 73 6e 28 29 3b 0d 0d 2f | 2a 20 57 68 65 6e 20 6f |sn();../|* When o|
|00000580| 75 74 70 75 74 74 69 6e | 67 20 61 73 73 65 6d 62 |utputtin|g assemb|
|00000590| 6c 65 72 20 63 6f 64 65 | 2c 20 69 6e 64 69 63 61 |ler code|, indica|
|000005a0| 74 65 73 20 77 68 69 63 | 68 20 61 6c 74 65 72 6e |tes whic|h altern|
|000005b0| 61 74 69 76 65 0d 20 20 | 20 6f 66 20 74 68 65 20 |ative.  | of the |
|000005c0| 63 6f 6e 73 74 72 61 69 | 6e 74 73 20 77 61 73 20 |constrai|nts was |
|000005d0| 61 63 74 75 61 6c 6c 79 | 20 73 61 74 69 73 66 69 |actually| satisfi|
|000005e0| 65 64 2e 20 20 2a 2f 0d | 69 6e 74 20 77 68 69 63 |ed.  */.|int whic|
|000005f0| 68 5f 61 6c 74 65 72 6e | 61 74 69 76 65 3b 0d 0d |h_altern|ative;..|
|00000600| 2f 2a 20 57 68 65 6e 20 | 6f 75 74 70 75 74 74 69 |/* When |outputti|
|00000610| 6e 67 20 64 65 6c 61 79 | 65 64 20 62 72 61 6e 63 |ng delay|ed branc|
|00000620| 68 20 73 65 71 75 65 6e | 63 65 73 2c 20 74 68 69 |h sequen|ces, thi|
|00000630| 73 20 72 74 78 20 68 6f | 6c 64 73 20 74 68 65 0d |s rtx ho|lds the.|
|00000640| 20 20 20 73 65 71 75 65 | 6e 63 65 20 62 65 69 6e |   seque|nce bein|
|00000650| 67 20 6f 75 74 70 75 74 | 2e 20 20 49 74 20 69 73 |g output|.  It is|
|00000660| 20 6e 75 6c 6c 20 77 68 | 65 6e 20 6e 6f 20 64 65 | null wh|en no de|
|00000670| 6c 61 79 65 64 20 62 72 | 61 6e 63 68 0d 20 20 20 |layed br|anch.   |
|00000680| 73 65 71 75 65 6e 63 65 | 20 69 73 20 62 65 69 6e |sequence| is bein|
|00000690| 67 20 6f 75 74 70 75 74 | 2c 20 73 6f 20 69 74 20 |g output|, so it |
|000006a0| 63 61 6e 20 62 65 20 75 | 73 65 64 20 61 73 20 61 |can be u|sed as a|
|000006b0| 20 74 65 73 74 20 69 6e | 20 74 68 65 0d 20 20 20 | test in| the.   |
|000006c0| 69 6e 73 6e 20 6f 75 74 | 70 75 74 20 63 6f 64 65 |insn out|put code|
|000006d0| 2e 0d 0d 20 20 20 54 68 | 69 73 20 76 61 72 69 61 |...   Th|is varia|
|000006e0| 62 6c 65 20 69 73 20 64 | 65 66 69 6e 65 64 20 20 |ble is d|efined  |
|000006f0| 69 6e 20 66 69 6e 61 6c | 2e 63 2e 20 20 2a 2f 0d |in final|.c.  */.|
|00000700| 72 74 78 20 66 69 6e 61 | 6c 5f 73 65 71 75 65 6e |rtx fina|l_sequen|
|00000710| 63 65 3b 0d 0d 2f 2a 20 | 4e 6f 6e 7a 65 72 6f 20 |ce;../* |Nonzero |
|00000720| 69 66 20 66 75 6e 63 74 | 69 6f 6e 20 62 65 69 6e |if funct|ion bein|
|00000730| 67 20 63 6f 6d 70 69 6c | 65 64 20 70 6f 70 73 20 |g compil|ed pops |
|00000740| 69 74 73 20 61 72 67 73 | 20 6f 6e 20 72 65 74 75 |its args| on retu|
|00000750| 72 6e 2e 0d 20 20 20 4d | 61 79 20 61 66 66 65 63 |rn..   M|ay affec|
|00000760| 74 20 63 6f 6d 70 69 6c | 61 74 69 6f 6e 20 6f 66 |t compil|ation of|
|00000770| 20 72 65 74 75 72 6e 20 | 69 6e 73 6e 20 6f 72 20 | return |insn or |
|00000780| 6f 66 20 66 75 6e 63 74 | 69 6f 6e 20 65 70 69 6c |of funct|ion epil|
|00000790| 6f 67 75 65 2e 20 20 2a | 2f 0d 0d 69 6e 74 20 63 |ogue.  *|/..int c|
|000007a0| 75 72 72 65 6e 74 5f 66 | 75 6e 63 74 69 6f 6e 5f |urrent_f|unction_|
|000007b0| 70 6f 70 73 5f 61 72 67 | 73 3b 0d 0d 2f 2a 20 4e |pops_arg|s;../* N|
|000007c0| 6f 6e 7a 65 72 6f 20 69 | 66 20 66 75 6e 63 74 69 |onzero i|f functi|
|000007d0| 6f 6e 20 62 65 69 6e 67 | 20 63 6f 6d 70 69 6c 65 |on being| compile|
|000007e0| 64 20 6e 65 65 64 73 20 | 74 6f 20 62 65 20 67 69 |d needs |to be gi|
|000007f0| 76 65 6e 20 61 6e 20 61 | 64 64 72 65 73 73 0d 20 |ven an a|ddress. |
|00000800| 20 20 77 68 65 72 65 20 | 74 68 65 20 76 61 6c 75 |  where |the valu|
|00000810| 65 20 73 68 6f 75 6c 64 | 20 62 65 20 73 74 6f 72 |e should| be stor|
|00000820| 65 64 2e 20 20 2a 2f 0d | 0d 69 6e 74 20 63 75 72 |ed.  */.|.int cur|
|00000830| 72 65 6e 74 5f 66 75 6e | 63 74 69 6f 6e 5f 72 65 |rent_fun|ction_re|
|00000840| 74 75 72 6e 73 5f 73 74 | 72 75 63 74 3b 0d 0d 2f |turns_st|ruct;../|
|00000850| 2a 20 4e 6f 6e 7a 65 72 | 6f 20 69 66 20 66 75 6e |* Nonzer|o if fun|
|00000860| 63 74 69 6f 6e 20 62 65 | 69 6e 67 20 63 6f 6d 70 |ction be|ing comp|
|00000870| 69 6c 65 64 20 6e 65 65 | 64 73 20 74 6f 0d 20 20 |iled nee|ds to.  |
|00000880| 20 72 65 74 75 72 6e 20 | 74 68 65 20 61 64 64 72 | return |the addr|
|00000890| 65 73 73 20 6f 66 20 77 | 68 65 72 65 20 69 74 20 |ess of w|here it |
|000008a0| 68 61 73 20 70 75 74 20 | 61 20 73 74 72 75 63 74 |has put |a struct|
|000008b0| 75 72 65 20 76 61 6c 75 | 65 2e 20 20 2a 2f 0d 0d |ure valu|e.  */..|
|000008c0| 69 6e 74 20 63 75 72 72 | 65 6e 74 5f 66 75 6e 63 |int curr|ent_func|
|000008d0| 74 69 6f 6e 5f 72 65 74 | 75 72 6e 73 5f 70 63 63 |tion_ret|urns_pcc|
|000008e0| 5f 73 74 72 75 63 74 3b | 0d 0d 2f 2a 20 4e 6f 6e |_struct;|../* Non|
|000008f0| 7a 65 72 6f 20 69 66 20 | 66 75 6e 63 74 69 6f 6e |zero if |function|
|00000900| 20 62 65 69 6e 67 20 63 | 6f 6d 70 69 6c 65 64 20 | being c|ompiled |
|00000910| 6e 65 65 64 73 20 74 6f | 20 62 65 20 70 61 73 73 |needs to| be pass|
|00000920| 65 64 20 61 20 73 74 61 | 74 69 63 20 63 68 61 69 |ed a sta|tic chai|
|00000930| 6e 2e 20 20 2a 2f 0d 0d | 69 6e 74 20 63 75 72 72 |n.  */..|int curr|
|00000940| 65 6e 74 5f 66 75 6e 63 | 74 69 6f 6e 5f 6e 65 65 |ent_func|tion_nee|
|00000950| 64 73 5f 63 6f 6e 74 65 | 78 74 3b 0d 0d 2f 2a 20 |ds_conte|xt;../* |
|00000960| 4e 6f 6e 7a 65 72 6f 20 | 69 66 20 66 75 6e 63 74 |Nonzero |if funct|
|00000970| 69 6f 6e 20 62 65 69 6e | 67 20 63 6f 6d 70 69 6c |ion bein|g compil|
|00000980| 65 64 20 63 61 6e 20 63 | 61 6c 6c 20 73 65 74 6a |ed can c|all setj|
|00000990| 6d 70 2e 20 20 2a 2f 0d | 0d 69 6e 74 20 63 75 72 |mp.  */.|.int cur|
|000009a0| 72 65 6e 74 5f 66 75 6e | 63 74 69 6f 6e 5f 63 61 |rent_fun|ction_ca|
|000009b0| 6c 6c 73 5f 73 65 74 6a | 6d 70 3b 0d 0d 2f 2a 20 |lls_setj|mp;../* |
|000009c0| 4e 6f 6e 7a 65 72 6f 20 | 69 66 20 66 75 6e 63 74 |Nonzero |if funct|
|000009d0| 69 6f 6e 20 62 65 69 6e | 67 20 63 6f 6d 70 69 6c |ion bein|g compil|
|000009e0| 65 64 20 63 61 6e 20 63 | 61 6c 6c 20 61 6c 6c 6f |ed can c|all allo|
|000009f0| 63 61 2c 0d 20 20 20 65 | 69 74 68 65 72 20 61 73 |ca,.   e|ither as|
|00000a00| 20 61 20 73 75 62 72 6f | 75 74 69 6e 65 20 6f 72 | a subro|utine or|
|00000a10| 20 62 75 69 6c 74 69 6e | 2e 20 20 2a 2f 0d 0d 69 | builtin|.  */..i|
|00000a20| 6e 74 20 63 75 72 72 65 | 6e 74 5f 66 75 6e 63 74 |nt curre|nt_funct|
|00000a30| 69 6f 6e 5f 63 61 6c 6c | 73 5f 61 6c 6c 6f 63 61 |ion_call|s_alloca|
|00000a40| 3b 0d 0d 2f 2a 20 4e 6f | 6e 7a 65 72 6f 20 69 66 |;../* No|nzero if|
|00000a50| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 66 75 6e | the cur|rent fun|
|00000a60| 63 74 69 6f 6e 20 72 65 | 74 75 72 6e 73 20 61 20 |ction re|turns a |
|00000a70| 70 6f 69 6e 74 65 72 20 | 74 79 70 65 20 2a 2f 0d |pointer |type */.|
|00000a80| 0d 69 6e 74 20 63 75 72 | 72 65 6e 74 5f 66 75 6e |.int cur|rent_fun|
|00000a90| 63 74 69 6f 6e 5f 72 65 | 74 75 72 6e 73 5f 70 6f |ction_re|turns_po|
|00000aa0| 69 6e 74 65 72 3b 0d 0d | 2f 2a 20 49 66 20 66 75 |inter;..|/* If fu|
|00000ab0| 6e 63 74 69 6f 6e 27 73 | 20 61 72 67 73 20 68 61 |nction's| args ha|
|00000ac0| 76 65 20 61 20 66 69 78 | 65 64 20 73 69 7a 65 2c |ve a fix|ed size,|
|00000ad0| 20 74 68 69 73 20 69 73 | 20 74 68 61 74 20 73 69 | this is| that si|
|00000ae0| 7a 65 2c 20 69 6e 20 62 | 79 74 65 73 2e 0d 20 20 |ze, in b|ytes..  |
|00000af0| 20 4f 74 68 65 72 77 69 | 73 65 2c 20 69 74 20 69 | Otherwi|se, it i|
|00000b00| 73 20 2d 31 2e 0d 20 20 | 20 4d 61 79 20 61 66 66 |s -1..  | May aff|
|00000b10| 65 63 74 20 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 20 |ect comp|ilation |
|00000b20| 6f 66 20 72 65 74 75 72 | 6e 20 69 6e 73 6e 20 6f |of retur|n insn o|
|00000b30| 72 20 6f 66 20 66 75 6e | 63 74 69 6f 6e 20 65 70 |r of fun|ction ep|
|00000b40| 69 6c 6f 67 75 65 2e 20 | 20 2a 2f 0d 0d 69 6e 74 |ilogue. | */..int|
|00000b50| 20 63 75 72 72 65 6e 74 | 5f 66 75 6e 63 74 69 6f | current|_functio|
|00000b60| 6e 5f 61 72 67 73 5f 73 | 69 7a 65 3b 0d 0d 2f 2a |n_args_s|ize;../*|
|00000b70| 20 23 20 62 79 74 65 73 | 20 74 68 65 20 70 72 6f | # bytes| the pro|
|00000b80| 6c 6f 67 75 65 20 73 68 | 6f 75 6c 64 20 70 75 73 |logue sh|ould pus|
|00000b90| 68 20 61 6e 64 20 70 72 | 65 74 65 6e 64 20 74 68 |h and pr|etend th|
|00000ba0| 61 74 20 74 68 65 20 63 | 61 6c 6c 65 72 20 70 75 |at the c|aller pu|
|00000bb0| 73 68 65 64 20 74 68 65 | 6d 2e 0d 20 20 20 54 68 |shed the|m..   Th|
|00000bc0| 65 20 70 72 6f 6c 6f 67 | 75 65 20 6d 75 73 74 20 |e prolog|ue must |
|00000bd0| 64 6f 20 74 68 69 73 2c | 20 62 75 74 20 6f 6e 6c |do this,| but onl|
|00000be0| 79 20 69 66 20 70 61 72 | 6d 73 20 63 61 6e 20 62 |y if par|ms can b|
|00000bf0| 65 20 70 61 73 73 65 64 | 20 69 6e 20 72 65 67 69 |e passed| in regi|
|00000c00| 73 74 65 72 73 2e 20 20 | 2a 2f 0d 0d 69 6e 74 20 |sters.  |*/..int |
|00000c10| 63 75 72 72 65 6e 74 5f | 66 75 6e 63 74 69 6f 6e |current_|function|
|00000c20| 5f 70 72 65 74 65 6e 64 | 5f 61 72 67 73 5f 73 69 |_pretend|_args_si|
|00000c30| 7a 65 3b 0d 0d 2f 2a 20 | 4e 61 6d 65 20 6f 66 20 |ze;../* |Name of |
|00000c40| 66 75 6e 63 74 69 6f 6e | 20 6e 6f 77 20 62 65 69 |function| now bei|
|00000c50| 6e 67 20 63 6f 6d 70 69 | 6c 65 64 2e 20 20 2a 2f |ng compi|led.  */|
|00000c60| 0d 0d 63 68 61 72 20 2a | 63 75 72 72 65 6e 74 5f |..char *|current_|
|00000c70| 66 75 6e 63 74 69 6f 6e | 5f 6e 61 6d 65 3b 0d 23 |function|_name;.#|
|00000c80| 69 66 64 65 66 20 41 50 | 50 4c 45 5f 43 0d 2f 2a |ifdef AP|PLE_C./*|
|00000c90| 20 4e 6f 6e 7a 65 72 6f | 20 69 66 20 74 68 65 20 | Nonzero| if the |
|00000ca0| 63 75 72 72 65 6e 74 20 | 66 75 6e 63 74 69 6f 6e |current |function|
|00000cb0| 20 77 61 73 20 64 65 63 | 6c 61 72 65 64 20 61 73 | was dec|lared as|
|00000cc0| 20 61 20 70 61 73 63 61 | 6c 20 66 75 6e 63 74 69 | a pasca|l functi|
|00000cd0| 6f 6e 2e 20 2a 2f 0d 0d | 69 6e 74 20 63 75 72 72 |on. */..|int curr|
|00000ce0| 65 6e 74 5f 66 75 6e 63 | 74 69 6f 6e 5f 69 73 5f |ent_func|tion_is_|
|00000cf0| 70 61 73 63 61 6c 3b 0d | 0d 23 65 6e 64 69 66 20 |pascal;.|.#endif |
|00000d00| 2f 2a 20 41 50 50 4c 45 | 5f 43 20 2a 2f 0d 00 00 |/* APPLE|_C */...|
|00000d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d80| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000d90| 0c 08 3e 80 22 7a ff 60 | 4e d1 07 00 00 00 00 a4 |..>."z.`|N.......|
|00000da0| 09 10 00 08 03 14 00 40 | 09 10 00 08 03 22 00 2e |.......@|....."..|
|00000db0| 08 6f 75 74 70 75 74 2e | 68 74 02 00 00 00 00 00 |.output.|ht......|
|00000dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 a3 81 52 82 00 00 | 00 00 00 00 01 7e 10 18 |....R...|.....~..|
|00000e00| 40 e7 46 fc 26 00 26 51 | b6 fc 00 00 66 04 46 df |@.F.&.&Q|....f.F.|
|00000e10| 60 1e 28 6b 00 04 b5 d4 | 67 04 22 4b 60 e8 22 93 |`.(k....|g."K`.".|
|00000e20| 46 df 42 6a 00 02 a0 2a | 20 4b a1 28 a0 2a a0 23 |F.Bj...*| K.(.*.#|
|00000e30| 4c df 1c 08 3e 80 20 42 | 4e d0 07 00 00 00 00 62 |L...>. B|N......b|
|00000e40| 09 10 00 08 03 22 00 1a | 09 10 00 08 03 0c 00 02 |....."..|........|
|00000e50| 05 08 03 28 01 12 08 08 | 00 1a 00 00 00 00 4e ba |...(....|......N.|
|00000e60| 00 00 42 67 4e ba 00 00 | 4a 5f 3f 40 00 04 4e 75 |..BgN...|J_?@..Nu|
|00000e70| 07 00 00 00 00 12 09 10 | 00 08 03 18 00 08 09 10 |........|........|
|00000e80| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ea0| 00 00 00 00 00 00 00 06 | 00 04 00 64 00 1c 01 dd |........|...d....|
|00000eb0| 02 3d 00 64 00 1c 01 dd | 02 3d a2 25 4c b7 00 00 |.=.d....|.=.%L...|
|00000ec0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000ed0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 27 a5 24 |...L...L|...2.'.$|
|00000ee0| 05 26 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.&.....2|..MPSR..|
|00000ef0| 00 0a 03 ed ff ff 00 00 | 00 00 00 29 48 f4 00 00 |........|...)H...|
+--------+-------------------------+-------------------------+--------+--------+